home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / fb386smp / bas / 24icn.bas next >
BASIC Source File  |  1994-09-20  |  532b  |  21 lines
  1. 1000 CLEAR ,,,,1024:LOADM "DOS.REX",0
  2. 1010 SEACHICNSEL&=0:MEMCPY&=5
  3. 1020 SCREEN@ 1:CLS
  4. 1030 '
  5. 1040 DEFLNG F
  6. 1050 DIM F_PAT(((32*32/8)+3)/4+1),F_PAT1(((32*32/8)+3)/4+1)
  7. 1060 '
  8. 1070 F_ICN_SEC=CALLM(SEACHICNSEL&)
  9. 1080 '
  10. 1090 PX=0:PY=0
  11. 1100 FOR F_SHAPE=0 TO 80
  12. 1110  GOSUB *âAâCâRâô24ò\Ī
  13. 1120  PX=PX+24:IF PX>310 THEN PY=PY+24:PX=0
  14. 1130 NEXT
  15. 1140 END
  16. 1150 '
  17. 1160 *âAâCâRâô24ò\Ī
  18. 1170  CALLM MEMCPY&,&H14,VARPTR(F_PAT(0)),F_ICN_SEC,16+F_SHAPE*24*24/4,24*24/8
  19. 1180  PUT@(PX,PY)-(PX+23,PY+23),F_PAT,PSET,7
  20. 1190 RETURN
  21.